var hoten,sbd:string;
t,l,h,s:real;
begin
write('Nhap ho ten ');readln(hoten);
write('Nhap so bao danh);readln(sbd);
write('Nhap diem toan = ');readln(t);
write('Nhap diem ly = ');readln(l);
write('Nhap diem hoa = ');readln(h);
s:=t+l+h;
if s >= 15 then write('Ban da trung tuyen')
else write('Ban khong trung tuyen');
readln;
end.
Viết chương trình nhập và tính tổng các số nguyên khi nào nhập vào số 0 thì dừng lại và thông báo tổng các số đã nhập
uses crt;
var a,t:integer;
begin
clrscr;
t:=0;
repeat
write('Nhap a='); readln(a);
t:=t+a;
until a=0;
writeln(t);
readln;
end.
Viết chương trình nhập số nguyên a khác 10 , nếu a > 10 in ra màn hình câu thông báo " bạn nhập số lớn hơn 10 " ngược lại in ra câu thông báo " bạn nhập số nhỏ hơn 10"
#include <bits/stdc++.h>
using namespace std;
int a;
int main()
{
cin>>a;
if (a>10) cout<<"ban nhap so lon hon 10";
else cout<<"ban nhap so nho hon 10";
return 0;
}
viết chương trình yêu cầu người sử dụng nhập vào một mật khẩu nếu đúng thì hiện lên thông báo ' chuc mung ban da nhap dung' ngược lại nếu sai thì yêu cầu nhập lại.
Em hãy viết chương trình Pascal nhập vào một số tự nhiên n thoả mãn 2<n<100, nếu sai yêu cầu nhập lại, tính và in ra các ước của n, nếu n chỉ có hai ước, hãy thông báo n là số nguyên tố.
Năm nay chúng ta sẽ đón tết NHÂM DẦN, để đếm ngược thời gian đến giao thừa e hãy viết chương trình nhập vào từ bàn phím một khoảng thời gian n (0<n<=5) nếu nhập sai yêu cầu nhập lại khi nào đúng thì in ra màn hình thông báo đếm ngược từng giây về 0:"XIN THONG BAO CHI CON ? GIAY NUA LA DEN GIAO THUA" cho đến khi hết khoảng thời gian đã nhập thì in ra dòng chữ:"HAPPY NEW YEAR 2022 - CHUC MUNG NAM MOI XUAN NHAM DAN"
Trong đó ? lần lượt là số giây còn lại
MỌI NGƯỜI VIẾT CHƯƠNG TRÌNH PASCAL NÀY GIÚP MÌNH VỚI MÌNH CẢM ƠN!
viết chương trình nhập hai số nguyên dương a và b từ bàn phím. Máy hỏi tổng hai số là bao nhiêu? Nếu ta nhập đúng thì máy thông báo "Chúc Mừng! Bạn đã tính đúng!" . Nếu ta nhập sai thì máy thông báo"Rất tiếc! Bạn Đã tính sai" và máy hiện kết quả đúng ra màn hình
uses crt;
var a,b,t:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('nhap so ban cho la tong cua hai so ',a,' va ',b,'='); readln(t);
if t=a+b then writeln('chuc mung! ban da tinh dung')
else
begin
writeln('rat tiec! ban da tinh sai');
writeln('ket qua dung la: ',a+b);
end;
readln;
end.
Viết chương trình nhập vào 2 số a, b từ bàn phím .Nếu a = b thì thông báo a bằng b, nếu a > b thì thông báo a lớn hơn b, Nếu a < b thì thông báo A nhỏ hơn b.
var a,b:integer;
begin
read(a);
read(b);
if a=b then write(A,'=',B);
if a>b then write(A,'>',B);
if a<b then write(A,'<',B);
readln;
end.
em hãy viết chương trình nhập vào 2 số a và b yêu cầu tính tổng hiệu tích thương của 2 số đó nếu b là số 0 thì thông báo là không tính được
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
if (b==0) cout<<"Ko tinh duoc";
else
{
cout<<a+b<<endl;
cout<<a-b<<endl;
cout<<a*b<<endl;
cout<<a/b;
}
return 0;
}
